home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Opus5.5 / InstallOpus_d < prev    next >
Text File  |  1999-05-12  |  42KB  |  1,534 lines
  1. ; Script to install Directory Opus version 5.5 (alternative version)
  2. ;
  3. ; Directory Opus Install Version $VER: Install-Opus 5.5a  (01.10.96)
  4. ; COPYRIGHT ©1996 GP SOFTWARE, AUSTRALIA
  5. ; note uses Opus<Alt-Shift>5
  6. ; now installs new catalogs if they are on the disk.
  7.  
  8.  
  9. (onerror
  10.     (makeassign "DOPUSDEST" (safe))    
  11. )
  12.  
  13. (complete 0)
  14.  
  15. ;
  16. ;check user has Dos 2
  17. ;
  18.  
  19. (set #DOSTYPE (/ (getversion) 65536))
  20. (if
  21.     (NOT (>= #DOSTYPE 37))
  22.      (abort "Directory Opus 5 benötigt AmigaDOS 2.04 oder höher."
  23.         " Bevor Sie Opus 5 benutzen können, müssen Sie auf V2.04 oder höher upgraden.")
  24. )
  25.  
  26.  
  27. (set @default-dest "Work:")
  28.  
  29. (set #Dopus_prog "DOpus5:DirectoryOpus")
  30. (set #Loadwb "C:LoadWb")
  31. (set #Loadwb_old "C:LoadWb_old")
  32. (set #Has_loadwb_old 0)
  33. (set #Has_loaddb 0)
  34. (set #Inst_choice 0)
  35. (set #HB_choice 0)
  36. (set #Changed 0)
  37. (set #Inst_core 0)
  38.  
  39. (set #DName1 "AMINET31")
  40. (set #DName2 "AMINET31")
  41. (set #Disk1_Name "AMINET31:Opus5.5/")
  42. (set #Disk2_Name "AMINET31:Opus5.5/")
  43. (set #TLArchive    "MWB_DOpus8c.lha")
  44. (set #CatalogFiles "CatFiles.lha")
  45. (set #Is_update 0)
  46.  
  47. (set #DOpus_Dest (getassign "DOpus5" "a"))
  48. (set #O_DOpus_Dest (getassign "DOpus5" "a"))
  49. (set #Go "Weiter")
  50. (set #Skip "Diesen Teil überspringen")
  51.  
  52.  
  53.  
  54. ;
  55. ; Procedure signal
  56. ; in case Opus is re-installed. The notification on the modules
  57. ; directory can cause problems so signal Opus to turn off notifications
  58.  
  59. (procedure signal_opus
  60.  
  61.     (set #Want_disk 1)
  62.     (get_disk)
  63.     (set #Sigs (tackon #Disk1_Name "dopusmsg"))
  64.     (if (exists #Sigs (noreq))
  65.         (run (cat #Sigs " DOPUS.1 \"command set notify off\""))
  66.     )
  67. )
  68.  
  69.  
  70. ;
  71. ; Procedure check_lha 
  72. ;
  73.  
  74.  
  75. (procedure     check_lha
  76.  
  77.     (set #Title_msg "FEHLER: Problem mit LHA.\n\n")
  78.  
  79.     (if ( = (exists "c:lha" (noreq)) 0)
  80.         (
  81.         (message #Title_msg
  82.             "LHA befindet sich nicht im C:-Verzeichnis Ihres Systems.\n\n"
  83.                "Ohne LHA ist die Installation nicht durchführbar. Wollen"
  84.                " Sie die Installation dennoch fortsetzen ?\n\n"
  85.                "(Es werden Fehler auftreten, die letztendlich zum Abbruch führen!"
  86.                " Bitte installieren Sie zuerst LHA in Ihrem Befehlspfad,"
  87.                " vorzugsweise im Verzeichnis C:, und brechen Sie die"
  88.                " Installation an dieser Stelle vorerst ab.)")
  89.         )
  90.     )
  91. )
  92.  
  93. ;
  94. ; Procedure get_disk 
  95. ; get the correct disk for a program
  96. ;
  97.  
  98. (procedure get_disk
  99.  
  100.     (if (= #Want_disk 1)
  101.         (set #DiskName #DName1)
  102.         (set #DiskName #DName2)
  103.     )
  104.     (askdisk
  105.         (prompt #Title_msg
  106.             "\nBitte legen Sie die CD \""#DiskName"\" ein.")
  107.         (help "Legen Sie die CD ein, um die Installation fortzusetzen.")
  108.         (assigns)
  109.         (dest #DiskName)
  110.     )
  111.     (set #Current_disk #Want_disk)
  112. )
  113.  
  114. ;
  115. ; Procedure install_arexx  ;
  116. ; From Leo Davidson collection.
  117. ;
  118.  
  119. (procedure install_arexx
  120.  
  121.     (set #Title_msg "Installation des ARexx-Archivs.\n\n")
  122.     (if     (askbool (prompt #Title_msg
  123.                 "Wir haben ein Archiv mit ARexx-Skripten und weiteren Daten für Opus von "
  124.                 "verschiedenen Benutzern beigelegt. Die meisten Skripte erfordern eine "
  125.                 "weitere Installation nach Ablauf dieses Skriptes.\n\n"
  126.                 "Wollen Sie die ARexx-Archive installieren?\n")
  127.             (help "Ja, tun Sie's! Die sind großartig!")
  128.         )
  129.         (
  130.         (set #Changed 1)
  131.         (set #Want_disk 2)
  132.         (get_disk)
  133.         (if    (> (+ (database "total-mem")) 1000000)
  134.             (
  135.             (working #Title_msg
  136.                 "Kopiere Dateien.")
  137.             (copyfiles (source (tackon #Disk2_Name "ARexx.lha")) (dest "ram:"))
  138.             (set #SRC "ram:")
  139.             )
  140.             (set #SRC #Disk2_Name)
  141.         )
  142.         (working #Title_msg
  143.             "Dearchiviere und installiere ARexx-Skripte.\n\n"
  144.             "Ein wenig Geduld...\n\n"
  145.             "Das dauert nicht lang.")
  146.             
  147.         (run (cat "lha >NIL: <NIL: -q x "#SRC"ARexx.lha DOPUSDEST:"))
  148.         (delete "ram:ARexx.lha" (safe))
  149.         (run "c:protect DOPUSDEST:ARexx/#? +s")
  150.  
  151.         (message #Title_msg
  152.             "Die ARexx-Skripte sind installiert. Lesen Sie bitte "
  153.             "den Anfang der Skriptdateien für Informationen über "
  154.             "deren Funktion und die Benutzung.\n\n"
  155.             "Die Skripte sind in \"DOpus5:Arexx\", weitere Zusatzmodule sind in "
  156.             "\"DOpus5:Storage/Modules\", und einige der Zusätze haben AmigaGuides "
  157.             "die in \"DOpus5:Help\" sind. Es befinden sich außerdem einige neue "
  158.             "Piktogramme in \"DOpus5:Icons\".\n"
  159.             "\nZur Aktivierung der Module müssen Sie diese nach \"DOpus5:Modules\" "
  160.             "verschieben und Opus neustarten."
  161.         )
  162.         )
  163.     )
  164. )
  165.  
  166. ;
  167. ; Procedure install_mwbextras ;
  168. ; MWB_DOpus_8_Install 1.0 (11.8.96)
  169. ; Install originally written by Leo Davidson.
  170. ;
  171.  
  172. (procedure install_mwbextras
  173.  
  174.     (set #Title_msg "MWB_DOpus V8.0 Installation.\n\n")
  175.     ;- Introductory message 
  176.  
  177.     (if    (askbool (prompt #Title_msg
  178.                 "Entwickelt von Trevor Morris and Leo Davidson\n\n"
  179.                 "MagicWorkbench Toolbarpiktogramme und Hintergründe "
  180.                 "für Directory Opus 5.5 (und andere Programme).\n\n"
  181.                 "Diese bieten ein hübsches Set von Bildern für "
  182.                 "Werkzeugleiste und Piktogramme, ob mit oder ohne MagicWorkbench."
  183.                 "\n\nWollen Sie diese in Ihrem System installieren?")
  184.             (help "Ja, tun Sie's! Die sind großartig!")
  185.         )
  186.         (
  187.         (set #Changed 1)
  188.         (set #Want_disk 2)
  189.         (get_disk)
  190.         (if    (> (+ (database "total-mem")) 1000000)
  191.             (
  192.             (working #Title_msg
  193.                 "Kopiere Dateien.")
  194.             (copyfiles (source (tackon #Disk2_Name #TLArchive)) (dest "ram:"))
  195.             (set #SRC "ram:")
  196.             )
  197.             (set #SRC #Disk2_Name)
  198.         )
  199.         (working #Title_msg
  200.             "Entpacke das MWB-Archiv.\n\n"
  201.             "Schon mal ans Schachspielen gedacht?....\n\n"
  202.             "Ähh, wäre ein \"Power\"-Amiga nicht klasse!")
  203.         (run (cat "lha >NIL: <NIL: -q x "(tackon #SRC #TLArchive)" ram:"))
  204.         (delete (tackon "ram:" #TLArchive) (safe))
  205.  
  206.         (run "cd ram:MWB8")
  207.  
  208.     ;- Set where to do the install to
  209.  
  210.         (set #Target "DOPUSDEST:")
  211.  
  212.     
  213.     ;- Back-up the old Images drawer (if exists) and copy new images
  214.  
  215.         (if (= (exists "DOPUSDEST:Images" (noreq)) 2) 
  216.             (
  217.             (set #Tmp_msg "\n\nIhr altes Verzeichnis \"Images\" kann vor der Installation der neuen Bilder gesichert werden.")
  218.             (set images_exist 1)
  219.             )
  220.             (
  221.             (set #Tmp_msg " ")
  222.             (set images_exist 0)
  223.             )
  224.         )
  225.  
  226.         (if     (askbool (prompt #Title_msg
  227.                     "Die neuen Werkzeugleistenbilder werden"
  228.                     " ins Verzeichnis \"Dopus5:Images\" kopiert."
  229.                     #Tmp_msg)
  230.                 (choices #Go #Skip)
  231.                 (default 1)
  232.                 (help "Dieser Teil installiert alle Werkzeugleistenbilder.")
  233.             )
  234.             ( ; yes 
  235.             (if images_exist
  236.                 (
  237.                 (set #Bkup 1)
  238.                 (set #New_name (cat "Images" #Bkup))
  239.                 (while     (= (exists (cat "DOPUSDEST:" #New_name) (noreq)) 2)
  240.                     (
  241.                     (set #Bkup (+ #Bkup 1))
  242.                     (set #New_name (cat "Images" #Bkup))
  243.                     )
  244.                 )
  245.                 (if     (askbool (prompt #Title_msg
  246.                         "Wollen Sie Ihr aktuelles Verzeichnis"
  247.                         " \"Images\" sichern oder es mit den"
  248.                         " neuen Bildern überschreiben?\n\n"
  249.                         "Ihr altes Verzeichnis würde gesichert als "#New_name".")
  250.                     (choices "Ja - Sichern" "Nein - Überschreiben")
  251.                     (default 1)
  252.                     (help "Im Zweifelsfall wählen Sie Ja.")
  253.                     )
  254.                     (; backup Images
  255.                     (rename (tackon #Target "Images") (tackon #Target #New_name))
  256.                     )
  257.                 )
  258.                 )
  259.             )
  260.  
  261.             (copyfiles
  262.                 (source "ram:MWB8/Images")
  263.                 (dest (tackon #Target "Images"))
  264.                 (all)
  265.                 (optional force)
  266.                 )
  267.             )
  268.         )
  269.  
  270.     ;- Copy the Colours guide
  271.     
  272.         (if    (askbool (prompt #Title_msg
  273.                     "Wir haben auch einige einfache Abkürzungen"
  274.                     " beigepackt, die Ihnen ein schnelles Einstellen der MagicWorkbench-Farben erlauben.\n\n"
  275.                     "Wollen Sie dieses \"Colours\"-Verzeichnis installieren?")
  276.                 (default 1)
  277.                 (help "Dieser Teil installiert das MWB-Farben-Verzeichnis.")
  278.             )
  279.             (copyfiles
  280.                 (source "ram:MWB8/Colors")
  281.                 (dest (tackon #Target "Colors"))
  282.                 (all)
  283.                 (infos)
  284.                 (optional force)
  285.             )
  286.         )
  287.             
  288.     ;- Copy the new icons (for programs, files, etc)
  289.     
  290.         (if    (askbool (prompt #Title_msg
  291.                     "Die alten DOpus5-Dateipiktogramme werden nun ersetzt "
  292.                     "durch MagicWorkbench-Versionen.\n\n"
  293.                     "Wichtig: Für den Fall, daß Sie einige Tooltypes im "
  294.                     "Hauptpiktogramm von DirectoryOpus geändert haben, bleibt dies ungeändert. "
  295.                     "Sie sollten dies manuell installieren, wie es in der Hilfsdatei "
  296.                     "beschrieben ist, die später noch installiert wird.")
  297.                 (choices #Go #Skip)
  298.                 (default 1)
  299.                 (help "Dieser Teil installiert alle Programm- und Dateipiktogramme.")
  300.             )
  301.             (copyfiles 
  302.                 (source "ram:MWB8/DOpus_Icons")
  303.                 (dest #Target)
  304.                 (all)
  305.                 (optional force)
  306.             )
  307.         )
  308.     
  309.     ;- Copy the Help guide
  310.     
  311.         (if    (askbool (pro